Select Code to Download

 
#!/usr/bin/perl
use strict;
...
my @args = ("sort", $file);

system(@args) == 0 or die "sytem @args failed: $?";

 my @args("sort" "somefile.txt" "somefile2.txt");
system(@args) == 0 or die "system @args failed: $?";