Select Code to Download

if ($not_in_shift) {
  if ($current || !$past) {
...
    print "Confirm in shift\n";
  }
}

#!/usr/bin/perl -w
use strict;
...
    my $item = shift;
    print "$item !!!\n";
}