#!/usr/bin/perl use CGI ':standard'; use strict; use warnings; use CGI::Carp 'fatalsToBrowser'; # use only for testing $ENV{"PATH"} = "/usr/sbin:/usr/bin:/sbin:/bin"; print "Content-Type: text/html; charset=utf-8\n\n"; print ""; print "

"; open FILE, "/tmp/quarantine.ok" or die $!; while() { chomp; print "$_\n\n"; print "
"; print "
"; print " \n"; } close FILE; print "

"; print "";