Select Code to Download

#!/usr/bin/perl
    use warnings;
...

print( " datainfo: $info\n" 
}

print( "num: $number\n" );

print( " datainfo: $info\n"

print %nums;