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

##</code><code>##

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

##</code><code>##

use warnings;
use strict;