C:\test>p1
[0]{} Perl> print 123 * 346;;
42558
[0]{} Perl> print 123 * 456;
print 'pqr';;
56088
pqr

[0]{} Perl> sub xyz{
    my( $a, $b ) = @_;
    my $c = $a + $b;
    $c += $a * $b;
    $c += $a - $b;
    $c += $a / $b;
    return $c ** 2;
};;
[0]{} Perl> print xyz( 123, 456 );;
3173549946.78328
[0]{} Perl> Terminating on signal SIGINT(2)

C:\test>