#!/usr/bin/perl

use warnings;
use strict;

my @list;

push(@list, "blah.txt"), print qq(Error\n) unless unlink "blah.txt";

print @list;