#!/usr/bin/perl
open (T, ">out") or die "Can't open out $!\n";
printf
T "hello\n";