#!/usr/bin/env perl use strict; use warnings; use Google::Chart 0.09000; # http://search.cpan.org/CPAN/authors/id/D/DM/DMAKI/Google-Chart-0.09000_04.tar.gz use File::Slurp; my $filename = shift; die "$0: need input filename\n" unless defined $filename; die "$0: not a readable file" unless ( -f $filename and -r _ ); my $size = shift; $size = 300 if !defined $size or !$size; $size = int($size); my $www_browser = shift; $www_browser = '/usr/bin/x-www-browser' unless defined $www_browser; die "$0: $www_browser: not an executable file" unless ( -f $www_browser and -x _ ); my $c = Google::Chart->create( QRcode=> { width => $size, height => $size, text => scalar read_file( $filename ), }, ); my $as_uri = $c->as_uri; system( $www_browser, $as_uri, );