Select Code to Download

print `cp x.txt y.txt';

print `cp x.txt $a_log.txt`

Name "main::a_log" used only once: possible typo at dbi line 146.
Use of uninitialized value in concatenation (.) or string at dbi line 
+146.