6 use File::Spec::Functions qw(catfile rel2abs abs2rel canonpath);

     6 use File::Spec::Functions qw(catfile rel2abs abs2rel canonpath);

     7 use Sys::Hostname;

     7 use Sys::Hostname;

     8 use autodie;

     8 use autodie;

     9 use Getopt::Long;

     9 use Getopt::Long;

    10 use English qw(-no_match_vars);

    10 use English qw(-no_match_vars);

    11 

    12 

    12 our $VERSION = '0.0';

    13 our $VERSION = '0.0';

    13 

    14 

    14 my $opt_force = 0;

    15 my $opt_force = 0;

    15 

    16