print "Enter EOM date (MM/DD/YY)?";
chomp(my $eomdate = <STDIN>);
my ($month,$year) = (substr($eomdate,0,2), substr($eomdate,-2));

my $month_t = (qw/Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/)[$month -1];
print $month_t . " " . $year . "\n";