#!/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, '|-', 'programm' or die $!;
{
    local $SIG{PIPE} = 'IGNORE';
    print $pipe "$variable" or die $!;
}
close $pipe or die $?;