use IMDB::Film;
$inputfile="dvdlist.txt";
$outputfile="dvdlist.csv";


open(INFILE,"$inputfile") or die("Couldn't open $inputfile\n");
open(OUTFILE,">$outputfile") or die("Couldn't open $outputfile\n");
@DVDS=<INFILE>;
close (INFILE);
foreach $line (@DVDS) {
print "$line";
$imdbObj = new IMDB::Film(crit => "$line");
print OUTFILE "Title: ".$imdbObj->title()."\n";
print OUTFILE "Year: ".$imdbObj->year()."\n";
print OUTFILE "Plot Symmary: ".$imdbObj->plot()."\n";
}

##</code><code>##

Shaun Of The Dead
Halfbaked
aliens

##</code><code>##

Title: Shaun of the Dead
Year: 2004
Plot Symmary: A man decides to turn his moribund life around by winning back his ex-girlfriend, reconciling his relationship with his mother and dealing with an entire community that has returned from the dead to eat the living.
Title:
Year:
Plot Symmary: The story of three not so bright men who come up with a series of crazy schemes to get a friend out of jail.
Title:
Year:
Plot Symmary: The planet from
Title:
Year:
Plot Symmary: Naive young Mormon Joe Young is recruited to act in porn movies.