#!/usr/bin/perl -w
use strict;
use Data::Dumper;

my $n1=5;    #any numeric value
my $n2=10;   #any numeric value
my $result = $n1 * $n2;
print "$result\n";

#__END__

seek (DATA,0,0);
my $program = do { local $/; <DATA> };
$program =~ tr/*/+/;
$program =~ s/#__/__/;  #prevent infinite loop
eval $program;

__DATA__

=prints
50
15
=cut