use strict;
use warnings;

open( FILE, "<$ARGV[0]" ) or die "$!";

while ( sysread( FILE, $_, 2 ) == 2 ) {
    print unpack( "S", $_ );
    print "\n";
}

close FILE;