Select Code to Download

use warnings;
use strict;

...
}

print "Exiting\n";

D:\test>perl test.pl

D:\test>test1
...

D:\test>
Exiting

~/test$ perl test.pl
test1
You typed: "test1"
...

Exiting
~/test$