use strict; use lib "./Lib"; use Main; my $control = Main->new(); print "finished \n"; #### package Main; use strict; use File::Path qw(make_path remove_tree); ################################################## sub new { ################################################## my ($class)=@_; craete_path(); my $hash = {}; bless ($hash,$class); } sub create_path { # here it first checks if the path already exists or not, and if there is no path, then it creates a path (with all necessary directory's). } 1;