while(defined($_=<DATA>))
[download]

can be this:

    while (<DATA>)
[download]

also check open() for error:

    open(DOC,'sample_testing') or die "Can't open input file: $!";
[download]