#!/usr/bin/perl
use strict;
use warnings;
use constant TRUE => 0;

printf("System Error\n"), exit unless TRUE;
print 'I should never be printed',"\n";