Select Code to Download

use strict;
use warnings;

use CGI;

use CGI::Carp qw/fatalsToBrowser/;

my $err = system("who",">>/var/www/cgi-bin/new.txt");
unless ($err == 0)
{
   die "who command failed: $?";
}