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