[runlisp] / bench / t.pl

#! /usr/bin/perl

printf <<EOF, $0, join ", ", map "`$_'", @ARGV;
Hello from Perl!
Script = `%s'
Arguments = (%s)
EOF
Commit	Line	Data
e29834b8 MW	1	#! /usr/bin/perl
	2
	3	printf <<EOF, $0, join ", ", map "`$_'", @ARGV;
	4	Hello from Perl!
	5	Script = `%s'
	6	Arguments = (%s)
	7	EOF