use strict;
use Win32;
my $date = sprintf("%04d%02d%0d",
                   (localtime)[5]+1900,
                   (localtime)[4]+1,
                   (localtime)[3] );

my $url = "www.moviefone.com/showtimes/closesttheaters.adp?date=$date\&skip=5";

my $command = Win32::GetShortPathName(
    "C:/Program Files/Internet Explorer/IEXPLORE.EXE"
);
$command = qq($command "$url");
print "$command";
''.<STDIN>;
exec( $command );