#!c:\perl\bin\perl -w

use Convert::IBM390 qw(:all);


unless (open(OUTPUT, ">a2e.txt")) {
        die ("cannot open configuration file \n");
}

@var=("001","001","00000","000","00000","FNUT");

foreach(@var)
{
print $_;
}

#$template='p1.0 p1.0 p3.0 p1.0 p3.0 E5';
$template='p3 p3 p5 p3 p5 E5';

$ebout = packeb($template, @var);

print OUTPUT ($ebout);