sub last_word {
    my $line = shift;
    my @words = split(/\//, $line);
    return $words[-1];
}