Select Code to Download

#!/usr/bin/perl

...
    my ( $start, $end, $name, $strand, $type ) = @$row;
    print "$type\n";
}