# Win32::Backup::Robocopy code BEGIN{ if( $ENV{PERL_ROBOCOPY_EXE} ){ my $robo = File::Spec->rel2abs( $ENV{PERL_ROBOCOPY_EXE} ); die "$robo does not exists!" unless -e $robo; die "$robo is not executable!" unless -x $robo; } }