Select Code to Download

$ tar txf syssrc.tgz > /tmp/file

#!/usr/bin/perl

...

<code>
if (system('tar', $args, $ARGV[0], '>', $filename) != 0) {

tar: WARNING! These patterns were not matched:
>
/tmp/contents
child process exit value:       1