#!/usr/bin/perl -w 

die "Usage: a.pl <input> <output>\n" unless $#ARGV==1;

$in = shift;
$out = shift;
#$idx=0;

open(INFILE, "<$in") or die "Can't open $in: $!";
open(OUTFILE, ">$out") or die "Can't open $out: $!";

while( read( INFILE, $byte, 2) != 0 ) {
    $red = vec($byte,0,8 );
    $alpha = vec($byte,1,8 );

    printf( "$red $alpha " ); 

#    syswrite OUTFILE, (pack("C", $red)), 1;
    syswrite OUTFILE, (pack("C", $alpha & 15)), 1;


}
close INFILE;
close OUTFILE;