Simple wrapper for FreeBSD pkg* commands (I HATE typing underscores!)

gistfile1.pl

#!/usr/bin/perl

use strict;
use warnings;

sub AUTOLOAD {
    ( my $cmd = our $AUTOLOAD ) =~ s/.*:://;
    for ( map { ; "$_/pkg_$cmd", "$_/pkg$cmd" } qw(/usr/sbin /usr/local/sbin) )
    {
        system( $_, @_ ) and last if -x;
    }
}

my $cmd = shift;
no strict 'refs';
$cmd->(@ARGV);