#!/usr/bin/perl -l
# foo.pl

print "Hello world. Should I continue? (y/n)";
my $answer = <STDIN>;

print "Ok, you said $answer";