The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
SZABGAB / Test-Snapshots-0.02 / eg / samedir_combine / other.pl 
#!/usr/bin/perl 
use strict;
use warnings;

print "Please type in your name\n";
my $name = <STDIN>;
chomp $name;
print "Hello $name\n";

warn "Some warning\n";
exit(10);