Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

Re^2: system(cp filenamewithspaces newplace/newname)

by afoken (Chancellor)
on May 13, 2009 at 10:34 UTC ( [id://763715] : note . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    #!/usr/bin/perl -w
    use strict;
    die "DON'T RUN THIS SCRIPT"; # just in case ...
    my ($from,$to)=('mostly-harmless.txt','$(rm -rf /)');
    system(qq[cp "$from" "$to"]);