ultima versione ma non va:

sub print_pagina {
my $view = shift;
my $dir;

if($view eq 'ONAIR') {
$dir = 'STANDBY';
}
elsif ($view eq 'ONAIR') {
$dir = 'ONAIR';
}
elsif ($view eq 'PREVIEW') {
$dir = 'STDOUT';
}

open($dir, '+>/var/www/VirtualHost/tvip-cm.aitek.it/$dir/index2.html');
# Creo il file index2.html dentro la dir STANDBY

print $dir $pagina;

close($dir);
}

qualcuno mi aiuta a farla funzionare?