my $density = $w / 5166 * 1000;
warn "# density = $density\n";
+my $args = join(' ', @ARGV);
+die "usage: $0 1301272944 callnumber\n" unless $args;
-my $barcode = shift @ARGV || die "usage: $0 1301272944 callnumber\n";
-
-my $call1 = shift @ARGV;
-my $call2 = shift @ARGV;
-my $call3 = shift @ARGV;
-my $call4 = join(' ', @ARGV);
+my ( $barcode, $call1, $call2, $call3, $call4 ) = split(/\s+/, $args, 5);
my $pbm = "/tmp/$barcode.pbm";
open(my $from, '<', "templates/$size.svg");
-open(my $to, '|-', "convert -density $density - $pbm");
+open(my $to, '|-', "convert -units PixelsPerInch -density $density - $pbm");
while(<$from>) {
s/1301272944/$barcode/gs && warn "# barcode $barcode\n";
s/##call1##/$call1/gs && warn "# 1: $call1\n";