#!/bin/sh
PATHFILE=$1
SHORTFILE=`basename "$PATHFILE"`

perl -i.orig -ple  'BEGIN{$/=undef} $_= "begin 600 $ENV{SHORTFILE}\n".(pack 'u', $_)."`\nend" if $_' $1