Embedded perl script in shell

embedded_perl_script.sh

!#/bin/bash

cat > embedded_perl_script<<'EOF'
#!/usr/bin/perl -w
$input = $ARGV[0];
my $argc;
$argc = @ARGV;
print $input."\n"
EOF

perl embedded_perl_script first-param
rm embedded_perl_script