#!/bin/perl

($username) =@ARGV;

$destinationdir = "users\\$username";

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