#!/usr/bin/perl
open INF, '<', 'zanzibar.txt' or die $!;
sleep 300;
close INF or die $!;