Select Code to Download

use CGI::Carp qw(fatalsToBrowser set_message);
       
...
  set_message($error_handler);
}

#!/usr/bin/perl

...
my $string = "Fileserver with Samba and Printserver with CUPS";
print $string;
exit;