#!/usr/local/bin/pascript-wrapper

"inside-border: [<filename>] <image>" 1 expect

/pic exch def
pic sizeof /h exch def /w exch def

w 10 add h 10 add 5 100 100 100 button invert .8 .8 .8 1. gamma
   5 5 pic paste 

stackdepth 2 lt 
{ xv }
{ exch 75 exch tojpeg } 
ifelse