my $opts = GetOptions (
  "input|source|i:s" => sub { if($_[1]) { 
                               $new->source($_[1]);
                             }else{
                               $new->source($last->source);
                             } },
  "verbose"  => sub { $new->verbose($_[1]); },
   # and so on