#!/usr/bin/perl
use warnings;
use strict;

my @options;
if ('backport' eq $ARGV[0]) {
    shift;
    my $release = qx{ lsb_release -sc };
    push @options, -t => "$release-backports";
}
system 'sudo', 'apt-get', @options, 'install', @ARGV;