13 foreach my $arg (@args) {
14 my $rel = File::Spec->abs2rel($arg, $ENV{HOME});
15 my $abs = File::Spec->rel2abs($rel, $ENV{HOME});
16 my $saved = rel2saved($rel);
18 print "Copying $abs to $saved...\n";
19 my @path = File::Spec->splitdir($saved);
21 mkpath(File::Spec->catdir(@path));
22 copy($abs, $saved) or die $!;