require "/usr/src/laundpad/ORD_processor.pl"; my $result = process($number); snip #!/usr/bin/perl -w # ORD_processor.pl sub process { print "I will attempt to process " . $number . "\n"; chomp (my $XX = <STDIN>); } $number does not print