Since all you're doing now is cat > file.txt, why not consider using File::Remote? All it does is allow you to write to a local or remote file.