#!perl
use strict;
use warnings;
use diagnostics;

sub manual_error() {
}