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