#! /usr/bin/perl

open (IN, "<abc.gif") ;
binmode IN ;
$image = <IN> ;
close IN ;

open OUT,">test.jpg" ;
binmode OUT ;
print OUT $image ;
close OUT