This does not do anything on open() failure:

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

This does not define a subroutine:

Sub Error{
 print " error - $! ";
}
[download]

This would have helped:

use warnings;
use strict;
[download]