open my $pipe, '|-', 'programm' or die $!;
{
    local $SIG{PIPE} = 'IGNORE';
    print $pipe "stuff\n" or die $!;
}
close $pipe or die $?;

#!/usr/bin/perl
system("sudo /etc/script.sh");

#/bin/bash

read variable
touch ${variable}.txt

#!/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 $?;

#!/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" or die $!;
}
close $pipe or die $?;

perl test.cgi

Global symbol "$variable" requires explicit package name at mario.cgi line 23.
Execution of mario.cgi aborted due to compilation errors.