#!/usr/bin/perl

use warnings;
use strict;

system("ftp TEMPERED");
system("username");
system("password");