use PM::FixedWidthFile qw{populate_file};
...
my $record_length = ...;
my $outfile = ...;
my $file_data = ...;
open my $fh, '>', $outfile;
populate_file($fh, $record_length, $file_data);