#!/usr/bin/perl 
use strict;
use warnings;
use CGI qw/:standard/;
 
# Neues CGI-Objekt, mit dem du Parameter auslesen kanns, HTTP-Header und HTML 
# ausgeben kannst
my $query = CGI->new();
 
# Header ausgeben
print $query->header();
 
my $variable_value = $query->param('variable');
 
# ACHTUNG: Nachdem du den Wert der Variable in ein Shell-Skript weitergibst,
# solltest du unbedingt prüfen, dass da kein Mist drinsteht. Da ich nicht weiss,
# welche Werte denn in dieser Variablen stehen dürfen, kann ich dir dafür keinen
# Check vorgeben!!!
 
open my $pipe, '|-', '/etc/test.sh' or die $!;
{
     local $SIG{PIPE} = 'IGNORE';
     print $pipe "$variable_value" or die $!;
}
close $pipe or die $?;

Use of uninitialized value in string at mario.cgi line 23.