Select Code to Download

#!/usr/bin/perl -w
use strict;
...
}

printf("after loop\n");

while (<TEST_FILE>)
{
    /^\s*TEST_PATTERN\s+/ and last;
}