Select Code to Download

my $sequence_number = shift ||
    die "cinnamon: sequence number needed as argument\n";

open (ERROR, "/usr/bin/errpt -g -l $sequence_number |");

my $sequence_number = shift;
unless ($sequence_number =~ /^\d+$/) {
...
}

open (ERROR, "/usr/bin/errpt -g -l $sequence_number |") || die "couldn
+'t open errpt: $!";