Select Code to Download

#/usr/bin/perl

...
    print "Light is ", $light ? "on" : "off", "\n";
    sleep 1;
}

#/usr/bin/perl

...
    print "Girl number $girl is size ", int( rand 20 ), "\n";
    sleep 1;
}

#/usr/bin/perl

...
    }
    sleep 1;
}