#write test file
open OUTF, ">c\\current\\test.bin";
binmode (OUTF);

my $buff = pack "sfff", 99, 1.34, 1.44, 1.55;
print OUTF $buff;
print OUTF $buff;

close OUTF;
print "done.\n";