[Perl] Crypter Problem mit Schleifen

[.Resistance]

Hallo
Ich versuche gerade in Perl einen Crypter zu schreiben, mit dem man Dateien mit verschiedenen Algorithmen ver- bzw entschlüsseln kann.

Vom Prinzip funktioniert es, ich habe aber ein Problem mit ein paar if/else Abfragen.
Wahrscheinlich ist es ein total doofer Fehler, ich komme aber einfach nicht drauf.

Hier der Code:

 Spoiler

PHP Code:

#!/usr/bin/perl

# Crypter by R3s1stanc3 (http://www.r3s1stanc3.co.cc)
# Mail: 

use Crypt::CBC ;

if ( @ARGV[3] ) { run ( @ARGV[0], @ARGV[1], @ARGV[2], @ARGV[3] ) ; }
else { usage ( ) ; }

sub usage
{
  print "[*] Usage: $0 filename key operation  algorithm\n" ;
  print "[-] Operation: dec, enc\n" ;
  print "[-] Algorithm: Twofish, Blowfish AES\n" ;
}

sub run
{

  $file = $_[0] ;
  $key = $_[1] ;
  $op = $_[2] ;
  $alg = $_[3]

  if ( $op eq "dec" || $op eq "enc" ) { $op .= "rypting" ; }
  else 
  {
    print "Unknown Operation\n" ;
    usage ( ) ;
    exit ;
  }

  if ( $alg eq "Twofish" || $alg eq "Blowfish" || $alg eq "AES" ) { $crypt = Crypt::CBC -> new ( -key => $key, -crypher => $alg ) ; }
  else 
  {
    print "Unknown algorithm\n" ;
    usage ( ) ;
    exit ;
  }

  open ( F, "$file" ) ;
  $crypt -> start ( $op ) ;
  while ( read ( F, $buffer, 1024 ) )
  {
    $file_new .= $crypt -> crypt ( $buffer ) ;
  }
  $file_new .= $crypt -> finish ;
  close ( F ) ;

  open ( file, ">", "$file" ) ;
  print file $file_new ;
  close (file ) ;

  print "Done\n" ;

} 


(PHP weil wegen Syntax Highlighting

()

Würde mich über Hilfe freuen.

mfg .Resistance

PS:
Fehlermeldung beim Ausführen:

syntax error at ./crypt.pl line 26, near ") {"
syntax error at ./crypt.pl line 27, near "else"
syntax error at ./crypt.pl line 32, near "}"
syntax error at ./crypt.pl line 40, near "}"
syntax error at ./crypt.pl line 57, near "}"

[.SkyneT.]

Originally Posted by .Resistance

[...]
Vom Prinzip funktioniert es, ich habe aber ein Problem mit ein paar if/else Schleifen.
[...]

[.Resistance]

Originally Posted by .SkyneT.

Besser?
Dein Beitrag trägt nur leider nicht zus Lösung meines Problems bei

[ms​]

In Zeile 24 fehlt ein Semikolon.

[.Resistance]

FUUU
Ich wusste doch, dass es doof war
Danke