use GD::Barcode::QRcode;
my $message = "help me perl monks";
my $barcode = GD::Barcode::QRcode->new(
				$message, { Ecc => 'L', Version=>6, ModuleSize => 2})->plot->png;
my $file = 'QR_Code.png';
open($fh,">", $file) || die;	
binmode($fh);
print $fh $barcode;
close $fh;