Solaris has no seq's

no problem!

[SunOS: marc@admin ~]$ cat `which seq`
#!/usr/bin/env perl

use strict;

sub Usage {
        die "usage: $0 [lower-bound(optional)] [upper-bound]\n";
}

foreach (@ARGV) {
        chomp;
        if (!/\d+/) {
                Usage();
        }
}

my ($lower, $upper);
Usage() if $#ARGV > 1;
if ($#ARGV == 0) {
        $lower = 1;
        $upper = $ARGV[0];
} else {
        $lower = $ARGV[0];
        $upper = $ARGV[1];
}

while ($lower <= $upper) {
        print $lower, "\n";
        $lower++;
}