Employee::logger_outfile( "/path/Dir" );
...
##Employee.pm
my $outfile ; sub Employee::logger_outfile {
    my $path = shift;
    croak "This is not a method" if ref $path or int@_;
    $outfile = $path;
}
sub Employee::logger {
   open ... $outfile ...
}