Select Code to Download

foreach my $file ( @filelist ) {
    my $FILE_URL = qq ( $URL/$file );
...
    die "error $status" if $status != AZ_OK;
    print $string;
}