Select Code to Download

package Foo;

...

print "number: ", int $x, " -- ", int $y, "\n";
print "string: $x -- $y\n";