t/bin/apt-get

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4
   5 if (grep { $_ eq 'upgrade' } @ARGV) {
   6     printf "%s %s (%s)\n", @$_ for
   7         ['Inst', 'foo', 'some foo info'],
   8         ['Somethingelse', 'bar', 'some bar info'],
   9         ['Remv', 'baz', 'some baz info'];
  10 }
  11 elsif (grep { $_ eq 'update' } @ARGV) {
  12     print "OK\n";
  13 }