#!/usr/bin/perl

use warnings;
use strict;


use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
print header;
print start_html;

my $pid;
if ($pid = fork) {
        print "parent process\n";
        } else {
            print "child process\n";
            print end_html;

            exec('/scripts/run/fsscan 2>&1');

        exit 0;
}