#!/usr/bin/perl;

use constant EXTENSION => '.txt';

die sprintf(
    'cannot match "%s" extension in "%s"', EXTENSION, $ARGV[0]
) unless $ARGV[0] =~ /EXTENSION$/;