open (INDAT, "<pic.jpg") || die "Error -  unable to open input file $!"; 
open (OUTDAT, ">copypic.jpg") || die "Error - unable to open output file $!";

while (<INDAT>){
	print OUTDAT $_;
}

close(INDAT);
close(OUTDAT);