#! perl -w
die "specify prefix: e.g. 'install1' " unless $ARGV[0];
print << "EOF";
#! /bin/sh

attach  -n -q infoagents

MOZILLA_FIVE_HOME=/mit/mozilla/installations/$ARGV[0]/sun4x_58/mozilla
EOF
print << 'EOF';  
export MOZILLA_FIVE_HOME
mozname=$MOZILLA_FIVE_HOME/mozilla
exec $mozname "$@"
EOF