#! /usr/bin/perl

printf <<EOF, $0, join ", ", map "`$_'", @ARGV;
Hello from Perl!
Script = `%s'
Arguments = (%s)
EOF
