Try this. I would assume a lot of introduction to Perl would have this type of example.

#!/usr/bin/perl

use strict;

print "can you write device drivers? ";
chomp(my $input = <> );
($input eq 'Y')  ? print 'wow, you must be very skilled'
                 : print 'neither can i, i am just shell script';
[download]