#!/usr/bin/env perl use strict; print "Content-Type: text/html; charset=iso-8859-1\n\n"; print '
Ruokalistaa on jo päivitetty alle 5min sitten.
"; } elsif (system("cd /var/www/rna && ./food.pl") == 0) { print "Ruokalista päivitetty.
"; } else { print "Virhe päivittäessä ruokalistaa.
"; } print "\n\n\n";