#!/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"]);