Select Code to Download

use strict;

...
my $newvariable6 =  pack 'A4A3A4A3', 'fee ', $var1,  ' fo ', $var2;
print "$newvariable6\n";