alvarow · March 3, 2016 15:17
diff --git a/embedded_perl_script.sh b/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
	!#/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