Select Code to Download

open my $wave,    '>', 'Wave' or die "Can't open $wave: $!";

#!usr/bin/perl
use strict;
...
        last;
    }
}