TEMP_FILE=`mktemp -p $HOME`

cat <<EOT> $TEMP_FILE
/bin/mkdir -p /opt/perl/
/bin/chown $USER.$USER /opt/perl
EOT

su -c "sh $TEMP_FILE"
rm $TEMP_FILE