my $handle;
if(open($handle, "perl -c script.pl 2> stderr |")
{
   close($handle);
}

if(-e "stderr")
{
   if(open($handle, "stderr"))
   ...
}