Provo a sistemarla, ma credo mi manchino delle informazioni per completare.
codice:
sub stampa {
  my $view = shift;
  my $pagina = shift;
  my $OUT = '';

  if ($view eq 'ONAIR') {
    $file = /ONAIR/index2.html;
    $OUT = 'FILE_OUT';
  } elsif ($view eq 'STANDBY') {
    $file = /STANDBY/index2.html;
    $OUT = 'FILE_OUT';
  } else {
    $OUT = 'STDOUT';
  }

  # Apro il file per scrivere
  open ($OUT, ">$file") or die("impossibile aprire il file");

  # Se il tipo di visualizzazione NON è onair o standby
  # Stampo a video
  print $OUT $pagina;

# chiudo il file aperto
  close(FILE_OUT);
}
Alla funzine vanno passati due parametri: il view e il testo da stamapre.

Nota che se vuoi aggiungere il testo in coda al file, devi usare >> al posto di > nell'open