11 while (defined(my $arg = <>)) {
14 my $rel = File::Spec->file_name_is_absolute($arg)
15 ? File::Spec->abs2rel($arg, $ENV{HOME})
17 my $abs = File::Spec->rel2abs($rel, $ENV{HOME});
18 my $saved = rel2saved($rel);
20 print "Copying $abs to $saved...\n";
21 my @path = File::Spec->splitdir($saved);
23 mkpath(File::Spec->catdir(@path));
24 copy($abs, $saved) or die $!;