#! /usr/bin/perl
# mytest.pl
$s = shift;
if (isnumber $s) {
  print "$s is a number\n";
} else {
  print "$s isn't a number\n";
}