#!/usr/bin/perl -wT print qq{This is a }; print $file_type; print qq{ file};