#!/usr/bin/perl
open FILE, ">123.txt" or die $!;
print pack("b*","a","b","c") or die $!;
close FILE;