my $data = do {

    local $/ = undef;
    open (my $fh, "<", $input_file) or die "could not open $input_file: $!";
    binmode($fh);
    <$fh>;

};

my $reversed_data = pack( "v*", unpack( "n*", $data ) );