Yes, it will not work, read this:
Name "main::username" used only once: possible typo at ./ftp-logs.pl line 9. his "

use "use strict;" ALL the time. You mis-spelled, one place it is $username, and then it is $user.