sub send_file {
    $_ = shift;
    foreach(<$_>) {
        sleep $time;
        print;
    }
    return(0);
}