Select Code to Download

# file eval.pl
use strict;
...
my $sep = shift @ARGV;
my $evaled = eval "qq/$sep/";
print "$evaled:\n"

perl eval.pl 'hehe/; print "Hello there!\n"; unlink "./eval.pl"; q/foo
+'

Useless use of a constant ("hehe") in void context at (eval 1) line 1.
Hello there!
foo: