Select Code to Download

#!/usr/bin/perl

...

open(BAR, ">", $name2); close(BAR);
system("/bin/ls"); # shows two files beginning with "abc"