use PerlIO; 
open($file, "<", sob19.exe);     
binmode($file); 
print $file;

open FILE, "<sob19.exe" or die $!; 
binmode FILE; 
 
my $buffer; 
 
while (my $size = read FILE, $buffer, 1024) { 
  # Now $buffer contains $size bytes of data 
  # (where size <= 1024) from FILE. 
  # Do what you want with it 
}

open SOB,"<sob19.exe" or die print "can't open"; 
binmode(SOB);   
while(<SOB>) { 
 print $_; 
}