File Perl

  1. Home
  2. Perl
  3. File
  4. Remove all paths supplied, silently and safely
#!/usr/bin/perl
use strict;
use warnings;
use File::Path;
my $path=$ARGV[0];
my $verbose = 0;
my $safe = 1;
rmtree $path, $verbose, $safe;
rmtree(\@ARGV, 0, 1);