Select Code to Download

#!/usr/bin/perl
use strict;
...
  $image = $img_obj{ $keys[0] };
}
__END__

#!/usr/bin/perl
use warnings;
...
}
}
__END__