#!/usr/bin/perl

use strict;
use warnings;

my $file = "/your/file/goes/here";
my $password;

open (FH, "<$file") or die "Can't open $file: $!\n";
while (<FH>) { 
  $password = $_;
  chomp($password);      # Strip newline from file
  print "\"$password\"";
}
close(FH) or die "Can't close $file: $!\n";
