use GD::Barcode::Code39;
  
my $filename = "code39.png";
open(my $png, ">", $filename) || die("Cannnot open $filename: $!");
print $png GD::Barcode::Code39->new('*CODE39IMG*')->plot->png;
binmode($png);
close($png);