Select Code to Download

Select or download this
```
my $datafolder = "F:/Perl_program";
```
Select or download this
```
my $dbh = DBI->connect( ... );
```

DBI->connect ( ... ) or die "Cannot connect: $DBI::errstr";

Select or download this
```
open FINAL, "<final2.csv" or die();
```

Select or download this

open(my $fh, "<", "input.txt") or die "cannot open < input.txt: $!";
open(my $fh, ">", "output.txt") or die "cannot open > output.txt: $!";

Select or download this
```
our %hash1;
```

Select or download this

while (<FINAL>) {
    our ($username, $date_modified) = split;
    $hash1{$username} = $date_modified;
}

Select or download this

$ perl -Mstrict -Mwarnings -le 'for (0..1) { our $x = $_ } print $x'
Variable "$x" is not imported at -e line 1.
...

$ perl -Mstrict -Mwarnings -le 'our $x; for (0..1) { $x = $_ } print $
+x'
1

Select or download this
```
if (our $username = our $fullname){
```
Select or download this
```
if ($username eq $fullname) {
```

Select or download this

our $line1;
...
our @lines1 = (<FINAL>);
...
foreach $line1(@line1){

Select or download this

our @lines1 = (<FINAL>);
...
for my $line1 (@line1) {

Select or download this

(our $username, our $date_modified) = split(',',$line1,2);

Select or download this
```
our ($username, $date_modified) = ...
```