Select Code to Download

open(OUTF, '>', "$directory$filename") || Error;

Sub Error{
 print " error - $! ";
}

use warnings;
use strict;