1#!/usr/bin/perl 2 3use strict; 4use Test::More tests => 2; 5use Test::NoWarnings; 6 7pass("just testing"); 8 9# if it's working properly, only the parent will conduct a warnings test 10my $pid = fork; 11die "Forked failed, $!" unless defined $pid; 12