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;