Select Code to Download

#! /usr/bin/perl
# mytest.pl
...
} else {
  print "$s isn't a number\n";
}

./mytest.pl 123.2
123.2 is a number

./mytest.pl aBcd
aBcd isn't a number