#!/bin/perl

($username) =@ARGV;

$destinationdir = "users\\$username";

`move "S0*.wav" $destinationdir\\`;