Select Code to Download

#!/usr/bin/env perl
use strict;
...
    my $hostname = fileparse($kickstart, qr/\.ks$/i);
    push @bsname, $hostname;
}