@extension = split(/\./,$filename);
$extension = $extension[$#extension];
@extension = split(/\\/,$extension);
$extension = $extension[0];