#!/usr/bin/perl -w

use strict;

my $shell = exists $ENV{ 'SHELL' } ? $ENV{ 'SHELL' } : (getpwuid( $> ))[ 8 ];

system $shell "-$shell";

system 'kdestroy';