1 #!/usr/bin/perl
  2 
  3 use strict;
  4 use IMDB::Film;
  5 
  6 my $film = <>;
  7 my $imdbobject = new IMDB::Film(crit => $film);
  8 
  9 if($imdbobject ->status) {
 10         print "Title: ".$imdbobject->title(). "\n";
 11         print "Year: ".$imdbobject->year(). "\n";
 12         print "Plot: ".$imdbobject->year(). "\n";
 13 } else {
 14         print "Something went wrong";
 15 }

##</code><code>##

Can't open troy: No such file or directory at imdb.pl line 6.
Film IMDB ID or Title should be defined! at imdb.pl line 7