diff --git a/index.pl b/index.pl
index c2b4ce8..025dce5 100755
--- a/index.pl
+++ b/index.pl
@@ -5,7 +5,7 @@
 use CGI qw/:standard/;
 use PDF::Create;
 use Data::Dumper;
-use Image::Size;
+use Image::Magick;
 
 my $annotations;
 read_annotations();
@@ -17,6 +17,13 @@
     print_input();
 }
 
+sub imgsize {
+    my ($img_name) = @_;
+    my $img = new Image::Magick;
+    $img->Read($img_name);
+    return $img->Get("columns", "rows");
+}
+
 sub print_input{
     print <<EOF;
 Content-Type: text/html; charset=utf-8