mm2px.pl

#!/usr/bin/perl
# convert millimeters to pixels

use feature 'say';

# take params
my (@mm,$dpi,$px);
($dpi, @mm) = @ARGV;
die "usage: $0 dpi mm[ mm]\n"  unless ($mm[0]*$dpi);

# give answer
say "dpi: $dpi";
say "mm: @mm";
say 'px: ', map {sprintf '%.2f ', $dpi / 25.4 * $_} @mm;


__END__
./mm2px.pl 300 34 46
dpi: 300
mm: 34 46
px: 401.57 543.31