file: qiv-command 1: #!/usr/bin/perl 2: use strict; 3: use warnings; 4: use 5.010;
a rather old script of mine (Dec 2010)