#!/home/toma/perl58i/bin/perl
use strict;
use warnings;
use diagnostics;
open (T, ">out") or die "Can't open out $!\n";
printf (
T "hello\n");