Help for this page

Select Code to Download

Select or download this

#! perl
use strict;
...
{
    print "No data for fruit '$fruit'\n";
}

Select or download this

14:35 >perl 1055_SoPW.pl
Which fruit do you wish to query?
...
No data for fruit 'guavas'

14:36 >