#!/usr/bin/perl -wT use strict; sleep 600; # ten minutes close STDOUT;