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

##</code><code>##

roboticus@swill$ ls
zanzibar.txt

roboticus@swill$ rm zanzibar.txt
roboticus@swill$ ls
zanzibar.txt

##</code><code>##

roboticus@swill$ ls

roboticus@swill$