my $firstline = (`perl -MO=Deparse $0 2>nul`)[2];
print "\nThe first line of Perl code is:\n$firstline";

# first test:
$x = sin / 25 ; # /; die "Bang! I'm dead!"; 
$y = time / 25 ; # /; die "I'm only pretending!";