# file eval.pl
use strict;
use warnings;

my $sep = shift @ARGV;
my $evaled = eval "qq/$sep/";
print "$evaled:\n"

##</code><code>##

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

##</code><code>##

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