chiark - git - mdw - runlisp/blob - bench/t.pl

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