#!/usr/bin/perl 
my $inputfile = $ARGV[0];
my $outputfile = $ARGV[1];
my $buff = "";
my $mybuff = "";

open (PARSER_FILE, $inputfile) 
	or die "Couldn't open $inputfile for reading";
binmode(PARSER_FILE);
open (OUT_FILE, ">", $outputfile) 
	or die "Couldn't open $outputfile for writing";
binmode(OUT_FILE);
read(PARSER_FILE, $buff, 4);

$outbuff = unpack("b32", $buff);
syswrite OUT_FILE, pack("b33", 1, $outbuff);
close(OUT_FILE);
close(PARSER_FILE)