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";
}