#!/usr/bin/perl

$< = $>;        # set real uid to the effective uid
($<,$>) = ($>,$<);      # swap real and effective uid
