ymirpl

#!/usr/bin/perl
use warnings;
use strict;

# args: login shell
sub change_shell {
	my $username = shift;
	my $shell = shift;
	my @command = ("chsh", "-s ".$shell, $username );
	system(@command) or print STDERR "Failed to chsh";