package FILE;
sub expand_path { # pathname
    my($path) = @_;
    $path =~ s/^~/$ENV{"HOME"}/;
    return $path;
}

1;
